home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 021-030 / amok29 / discopper / backdrop.def next >
Text File  |  1993-11-04  |  2KB  |  47 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.     BackDrop.def
  3.     :Contents.      Öffnet Screen und BackDrop-Borderless-SmartRefresh-Window
  4.     :Author.      Bernd Preusing
  5.     :Address.      Gerhardstr. 16  D-2200 Elmshorn
  6.     :Phone.      04121/22486
  7.     :Copyright.      Public Domain
  8.     :Language.      Modula-2
  9.     :Translator.  M2Amiga V3.2e
  10.     :Support.      einige Ideen von Pit Burkhardt [pit]
  11.     :History.      V1.2 Preusing 27-Apr-89
  12.     :Bugs.      none
  13.     :Remark.      Für fast Alles zu gebrauchen, kann auch OverScan!
  14.     :Remark.      Nicht reentrant!
  15. ---------------------------------------------------------------------------*)
  16.  
  17. DEFINITION MODULE BackDrop;
  18.  
  19. FROM SYSTEM    IMPORT ADDRESS;
  20. FROM Intuition    IMPORT WindowPtr, ScreenPtr;
  21. FROM Graphics    IMPORT RastPortPtr;
  22.  
  23.  
  24. VAR (* die kann man nach OpenBackDrop benutzen: *)
  25.   BdScreen  :ScreenPtr;
  26.   BdWindow  :WindowPtr;
  27.   BdRp        :RastPortPtr; (* RastPort des Windows, also geclippt! *)
  28.  
  29. PROCEDURE OpenBackDrop(Depth, Width, Height:INTEGER; Title:ADDRESS);
  30. (* Input.    Depth: Anzahl Bitplanes des Screens
  31.    Input.        falls Depth=6, dann ExtraHalfBrite
  32.    Input.    Width: Breite des Windows und des Screens
  33.    Input.    Height: Höhe des WINDOWS!
  34.    Input.    Title: Addresse des Screen-Titels
  35.    Input.        falls NIL: kein Titel, Screenhöhe = Windowhöhe,
  36.    Input.        sonst Screenhöhe = Windowhöhe+12
  37.    Semantic.    Öffnet Screen und Window, je nach Breite und Höhe wird
  38.    Semantic.    Interlace und/oder HiRes gesetzt. Keine IDCMPs!
  39.    Semantic.    Das Ding kommt MITTIG auf die Glotze! (versuche: 200,50!)
  40. *)
  41.  
  42. PROCEDURE CloseBackDrop; (* ist auch in TermProcedure *)
  43. (* Semantic.    Schließt Window und Screen wieder, muß aber nicht aufgerufen
  44.    Semantic.    werden, ist auch TermProcedure
  45. *)
  46. END BackDrop.def
  47.